home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 September / Chip_2003-09_cd2.bin / system / xteq / setup.exe / {app} / plugins / XQ Excite PAL 1.xpl < prev    next >
Encoding:
XSetup plugin  |  2000-08-07  |  1.8 KB  |  81 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="1"
  3. "COUNT"="4"
  4. "UIPATH"="Internet\Instant Messaging\Excite PAL"
  5. "NAME"="URL Settings"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="1.07"
  8. "TEXT 1"="Default Server"
  9. "TEXT 2"="Default Port"
  10. "TEXT 3"="Secure Server"
  11. "TEXT 4"="Secure Port"
  12. "DESCRIPTION 1"="You can use this plug-in to change the options for Excite PAL."
  13. "DESCRIPTION 2"="It allows you to enter a custom host and port setting to use for logging on."
  14. "DESCRIPTION 3"="To restore the default values, clear all fields."
  15. "DESCRIPTION 4"="Excite PAL may be obtained at http://www.excite.com/communities/pal/home/."
  16. "AUTHOR"="Xteq Systems"
  17. "CONTACTURL"="http://www.xteq.com"
  18. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  19. "COMMENT 1"=" "
  20. "COMMENT 2"="Thanks to CptSiskoX for the settings and the idea."
  21.  
  22.  
  23. sV_Reg="HKEY_LOCAL_MACHINE\Software\Ubique\PAL\Path"
  24. sSec="Connectivity"
  25. sFile="pal.ini"
  26. sPath=""
  27. sV1="Server"
  28. sV2="Port"
  29. sV3="HttpsServer"
  30. sV4="HttpsPort"
  31. Sub Plugin_Initialize 
  32.  sPath=RegReadValue(sV_Reg)
  33.  if isempty(sPath)=false then    
  34.     sPath=sPath & "\" & sFile
  35.  
  36.     if fileexists(sPAth) then
  37.        s=IniReadValue(sPath,sSec,sV1)
  38.        SetUIElement 1,s
  39.  
  40.        s=IniReadValue(sPath,sSec,sV2)
  41.        SetUIElement 2,s
  42.  
  43.        s=IniReadValue(sPath,sSec,sV3)
  44.        SetUIElement 3,s
  45.  
  46.        s=IniReadValue(sPath,sSec,sV4)
  47.       SetUIElement 4,s
  48.     else
  49.       Disable
  50.     end if
  51.  else
  52.     Disable
  53.  end if
  54. End Sub
  55.  
  56.  
  57. Sub Plugin_CheckData(ElementIndex)
  58. End Sub
  59.  
  60.  
  61. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  62.  s=GetUIElement(1)
  63.  Call IniWriteValue(sPath,sSec,sV1,s)
  64.  
  65.  s=GetUIElement(2)
  66.  Call IniWriteValue(sPath,sSec,sV2,s)
  67.  
  68.  s=GetUIElement(3)
  69.  Call IniWriteValue(sPath,sSec,sV3,s)
  70.  
  71.  s=GetUIElement(4)
  72.  Call IniWriteValue(sPath,sSec,sV4,s)
  73. End Sub
  74.  
  75.  
  76. Sub Plugin_Terminate 
  77. End Sub
  78.  
  79.  
  80.  
  81.